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DIGITAL EQUIPMENT CORPORATION 
EDUCATIONAL PUBLICATIONS 


A partial list of the publications in the continuing series of curric- .. 
- ulum material published by Digital for use with EduSystems and RSTS 

are listed below. Please inquire directly for prices on classroom 
quantities. 


Additional publications may be obtained from: 
Software Distribution Center 


Digital Equipment Corporation 
Maynard, Massachusetts 01754 








Populution: Self teaching BASIC Workbook $2.00 
BASIC Matrix Operations, Project Solo $1.00 
Problems for Computer Mathematics SL<2D 
Advanced Problems for Computer Mathematics 2.00 
BASIC Application Programs s 
Mathematics I 5.00 
Mathematics II 1.00 
Science £400 
Business and Social Studies 1.00 
Plotting 1.00 
Huntington I Application Programs 
MATHEMATICS $2.00 
TEACHER ASSISTANCE 1.00 
Huntington I Simulation Programs 
BIOLOGY $1.00 
CHEMISTRY 2.00 
EARTH SCIENCE 1.00 
PHYSICS 2.00 
SOCIAL STUDIES 1.00 
Huntington II Simulation Modules 
Student Workbook $0.30 
Teacher's Guide <30 
Resource Handbook au ~~ 
Program Paper Tape 1.00 f 
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The POLICY Model 


The socioeconomic model which serves as the basis for the POLICY 
simulation is stored in the computer. After the policy action has been 
determined during the actual play of the game, the support and opposition 
levels for each group are typed into the computer. The first section of 
the computer program will then ''serve as the government" and determine which 
policies have been adopted. After the program has determined which policies 
have been adopted, it makes the necessary calculations to up-date the socio- 
economic indicators. Under the heading Policy Action Model, you will find 
a matrix listing the effects each policy will have. In order to help you 
understand how the model pperates, several examples are included here. 


Example 1 


Suppose enough support has been amassed by the interest groups to pass 
policy number 4 (the value-added tax). After the first part of the program 
informs the socioeconomic model section that number 4 has been adopted, it 
up-dates the values for Indicators 102, 103, 112, and 113. 


Example 2 


Suppose that no policies receive enough support to be adopted. The 
computer then makes the changes in the Indicator values listed under the 
column titles Secular Trend. 


See the Sample Run section for further information regarding how the 
POLICY model operates. 
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Sample Run 


4 | Initially you are asked to input the 
OW MANY PERIODS? 3 number of periods you wish to use POLICY. 


Since you will be playing one round per 


day, input 1 here. 
INITIAL AMOUNTS: 


INDICATOR CURRENTLY INCREASE PCTe INCe 
141 976-5 
1A2 197 
: 193 BY 
’ 1A4 18.2 
4 145 3 
146 &2 
147 5A 
1ARK 3 
199 147A 
114 4e5 
ie Be 2S 
11° 4.2 
: 3A 
114 116-3 ; 
24 45 142 
116 556% 
137 QA 
118 q 
J 


ie For instructions on how to use the Tape 
PAPE? CL=YESsG9=NO)? A a ontion, see: page 9 of the Resource 
and Supplementary Materials. 


BUSINESS 
TOTAL POINTS REMAINING : 149 
MAXIMUM MINUS POINTS ; Be 


INPUT POLICY NOesPOINTS 
This shows how the Business Group inputs 


its points. They have decided to-allocate 


? 4549 
923,20 da points in support of policy 4 and 20 


? 15,4 points in support of policy 3. Next, they 
TOTAL POINTS REMAINING +: 4a wish to know how many points they have 
| MAXIMUM MINUS POINTS : 2 remaining, so they type 15,0. Since there 
, INPUT POLICY NO.sPOINTS is no policy 15, this simply tells the 
ii computer that they want current information 
’ ? 63-29 about their remaining points. 
? 1456 . 
? 1559 


t this point the Business Group inputs 20 
in opposition to policy 6 and 6 points in 
support of policy 14. Again, they have used 
the 15,0 to get information regarding the 
points they have remaining in this period. 


TOTAL POINTS REMAINING 
MAXIMUM MINUS POINTS 
INPUT POLICY NOesPOINTS 


ee se 
so. 


? Tal 
? Bs -2BG 





TOTAL POINTS REMAINING =: 4 

MAXIMUM MINUS POINTS <4 After the Business Group uses all of 
INPUT POLICY NO.sPOINTS its influence points or types 0,0, they 

program moves on to the next group; in » 4 

? Ast this case Labor. 

LABOR 

TOTAL POINTS REMAINING °¢ LAA 

MAXIMUM MINUS POINTS : 54 

INPUT POLICY NOesPOINTS 

? 436% 

? Asi 

? 1559 

TOTAL POINTS REMAINING : 39 

MAXIMUM MINUS POINTS : re 


INPUT POLICY NOe«sPOINTS 
?-%339 

CIVIL RIGHTS 

TOTAL POINTS REMAINING $ 1490 


MAXIMUM MINUS POINTS 54 
INPUT POLICY NO-sPOINTS 





? 95199 : 
MILITARY howe 
TOTAL POINTS REMAINING : 142 

MAXIMUM MINUS POINTS 2 59 

INPUT POLICY NOes,POINTS 

? 14,-59 

? 125-3 

TOTAL POINTS REMAINING +: 49 

MAXIMUM MINUS POINTS “ee. 

INPUT POLICY NOe,°0INTS 

? 12555 

NATIONALISTS 

TOTAL POINTS REMAINING : 149 

MAXIMUM MINUS POINTS 2 54 

INPUT POLICY NOe»POINTS 

2? 143,1A% 

INTERNATIONALISTS 

TOTAL POINTS REMAINING $3: 142 y 
MAXIMUM MINUS POINTS : 5A 


INPUT POLICY NOesPOINTS 


——__. 


? 11,94 
? 155% 


TOTAL POINTS 


REMAINING 


MAXIMUM MINUS POINTS 


INe GT -OLICY 


? Ya 


PASSED 


NOesPOINTS 


END OF PERTODp 1 


After all groups have had a chance to input 
their influence points, the program 
determines which policies have been adopted 
In this example, policy 4 was adopted. 


INDICATOR CURRENTLY INCREASE PCT e 

eon ae 1475655 394355 3299 

142 ay 41 a) 2243 

LA3 1 1 Ler 

144A 18641 -e19 -1095 

1g5 PeT7 —e 3 aan) 

1%4 82 A fe) 

147 54 4) Sy P # 

c 043 0A 1 t this point, the computer 
Be ae a 9 Q—p-dates the indicator 
he ee m a values to reflect the impact 
oY 24075 =.25 -1 of policy 4. 
rie 1% .2 2 2le 39 
3S 333 3 1% 

114 124295 4265 3299 
ts 156-19 14.19 9.99 
116 657%224 1992223 17-99 
ee 24 A ) 
11% A a % 
TAPE? C1L=YESs4=NO)? 9B 

BUSINESS 

TOTAL POINTS REMAINING : 149 

MAXIMUM MINUS POINTS o  -ae 


INPUT POLICY NOesPOINTS 

? 135149 

LAROR 

TOTAL POINTS REMAINING : LAA 
MAXIMUM MINUS POINTS $ 54 
INPUT POLICY NOesPOINTS 


? 13s2P 
2? B59 


CEViL, RIGHTS 


TOTAL, POINTS REMAINING : 194 
MAXIMUM MINUS POINTS : 59 


INPUT POLICY NOesPOINTS 


? 53149 








ae Sees me >> Ae <, — Bes —-o aes SEES 
= ers = = — re ~~ fetes, coe 3 > eee re 
Pane ee, i- ae ar = ae Se ONC Be ae ess ek Se ay Be ee 
: - “= SS = Se Se eRe eee 


MILITARY 


TOTAL POINTS REMAINING 
MAXIMUM MINUS POINTS 
INPUT POLICY NOe»POINTS 


¢e 09 
wh 
3 


? 53 1BA 


NATIONALISTS 


14% 
oY) 


TOTAL POINTS REMAINING 
MAXIMUM MINUS POINTS 
INPUT POLICY NOesPOINTS 


ee <¢6 


? 53-49 

7 £539 

TOTAL POINTS REMAINING 
MAXIMUM MINUS POINTS 
INPUT POLICY NOesPOINTS 


69 
19 


? Ash 


INTERNATIONALISTS 


14D 
39 


TOTAL POINTS REMAINING 
MAXIMUM MINUS POINTS 
INPUT POLICY NOesPOINTS 


? As3 


PAaosty = 5. 3 
END OF PERIOD 2 


INDIC4TOR CURRENTLY INCREASE. PCTe INCe 


141 
1Ne 
1A3 
1AA 
1a5 
146 
LAT 
ifs 
19 
114 
111 
Lie 
EES 
114 
2S 
116 
37 
118 


1437-56 
2A L 
8%e19 
17283 
2243 

88 

58 

3646 
LAG 

4A 
Pe 7 
92° 

3A 
116295 
171.81 
85P9224 
ay 

A 


TAPH?C1=YFSs4=N0)? 1 


SI9DATA 
B31 5DATS 


» ODA > 


BA%e1D » 17683782 


304643 » LAA NeM » PAeT » 


ae 
3 

-2 82 
-e19 
-~e27 


2216 
1.49 
-~1-24° 
-1.2.%6 
#19 
7e 31 
Fel 
99 
‘m 
=2eP3 
-.e2>1 
-9.-51 
-~9el1 
-323) 
9299 
—~e7f 
) 
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2eA3 > 
9eP 


SAADATA 39 » 1164952 5 1714682 » AB5AGAeS4A » AA > 4 
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Helpful Reading Materials 


Alternative Future for America II, Robert Theobold (Swallow) 
Dilemmas of Urban America, Robert Weaver (Atheneon) 

A Question of Prioties, Edward Higbee (Morrow) 

The State of the Nation, Bertram Gross (Social Science Paperback) 


The Perverted Priorities of American Politics, Duane Lockard (Macmillan) 


The Greening of America, Charles Reich (Bantam) 


The Unprepared Society, Donald Michael (Basic) 
The Unheavenly City, Edward Banfield (Little, Brown) 


The Politics of Neglect, Meek, Straayer (Houghton, Mifflin) 


The Ecological Conscience, Values for Survival, Robert Disch (Prentice-Hall) 


Prelude to Riot: A View of America from the Bottom, Paul Jacobs (Vintage) 


A Bill Becomes a Law: Congress Enacts Civil Rights Legislation, 


Daniel Berman (Macmillan) 


The Welfare State, Fred J. Cook (Collier Books) 


The Politics of Oil: A Study of Private Power and Political Directions, 


Robert Engler (University of Chicago Press) 


How to Control the Military, John K. Galbraith (Doubleday) 


A Sacred Trust, Richard Harris (New American Library) 


The Military-Industrial Complex, Sidney Lens (Pilgrim Press) 


Private Power and American Democracy, Grant McConnell (Knopf) 
The Washington Lobbyists, Lester W. Milbrath (Rand McNally) 


The Semi-Sovereign People, E.E. Schattschneider (Holt, Rinehart, & Winston) 
Politics and Policy, James Sundquist (The Brookings Institution) 


The Governmental Process, David Truman (Knopf) 


Interest Groups in American Society, Harmon Zeigler (Prentice-Hall) 


How to Initialize Indicator Values 


From time to time you may wish to change the values of certain variables 
in the POLICY model. You may, for example, want to change the level of 
support needed to adopt a policy, or you may want to allow the groups to use 
more than 50 points in opposition to policies. These changes are easy to 
make and are described below. 


1. To change the total number of points that each group 
can use per period (initially set to 100) change line 620 in 
the program. 

620 LETW(Z) = 100 
If, for example, you want to give each of the groups more 
influence points, you would replace line 620 with the 
following line: 

620 LETW(Z) = 125 


2. To change the maximum minus points (initially set 
to 50) change line 630. 


630 LETY(Z) = 50 


3. To change the number of points needed to pass any one 
proposal (initially set to 101) change line 1200. 


1200 IF Q(Z)<101 THEN 1250 


Just retype the line with the number you wish to represent the 
level of support needed for adoption in place of 101. 


Se 
¥ 
- 
- 6% 
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Using the Tape Options to Input Current Indicator Values 


Since you will most likely be using the POLICY program over a period 
of four or five days you will need to initialize the indicator values before 
the new support and opposition points are input. In other words, at the end 
of the first period of play you will type in the support and opposition 
influence points expended by the groups. This will cause changes to take 
place in the model; thus the indicator values will change. At the end of 
the second, third, and fourth days of play you will want the indicator values 
to reflect the previous changes. It is very simple to input the current 
values and instructions are given below. 


At the end of each period or when a nonexistent policy number less 
than 0 is specified, the following is printed by the computer: 


TAPE? (1=YES, O=NO)? 


If you do not wish to make a tape of the indicators type zero (0). If 
you do want a tape, type one (1) and then the return key. Immediately 
(within about 2 seconds) press the "ON" button on the tape punch. Three 
data lines will be typed. Then press the "OFF" button and take the tape 
off. 


On the tape you now have the current values of the indicators. You 
will want to use these values as the starting points for the next period 
of play. To input these values into the computer, read this tape through 
the reader on the teletype before you execute the program. 


You now have a program that is current, i.e., it reflects all changes 
that have been made earlier. 


Evaluating POLICY 


Simulations and games are currently used in schools for a variety of 
purposes including: heightening interest and motivation; presenting 
information and principles; putting students into situations in which they 
must articulate positions, ideas, arguments or facts they have previously 
learned; or training students in skills they will need after they finish 
school. Despite the numerous claims made about the use of simulation as 
a teaching-learning tool the evaluation of simulation remains neglected. 
As a result, teachers are forced to use simulations without knowing what 
impact they are having. 


As a first step toward the evaluation of the POLICY simulation we 
have included several multiple-choice and essay questions for you to use. 
We do not claim to have developed a total evaluation routine; rather we 
suggest a few questions which you could present to the students as one way 
of evaluating their exposure to POLICY. 


Should you wish to explore the area of simulation evaluation in more 
depth we suggest that you read Cathy S. Greenblat's article entitled, 
"Simulations, Games and the Sociologist" in The American Sociologist 6 
(May): 161 - 164 or review several of the most recent copies of 
Simulation and Games. 
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Multiple Choice Questions 


1. In addition to benefitting the taxpayer, the most direct result of a 
tax reduction will be: 


a. 
b. 
*C. 
d. 


expand government activities. 
combat inflation. 

to stimulate the economy. 
increase unemployment. 


2. Corporate executives argue that profits are necessary for: 


ae 
b. 
*&Ce 
d. 


higher salaries. 

lower prices next year. 
business expansion. 
taxes. 


3. A sales tax, such as the proposed value-added tax, weighs most heavily 


upon: 


corporate executives. 
the wealthy. 

low income workers. 
independent businessmen. 


4. Federal aid to education is designed to: 


a. 
b. 
*kC. 
d. 


replace state and local financing. 
create a single national school systen. 
supplement state and focal funds. 
increase diversity in education. 


5. In addition to the aerospace industry, companies most likely to benefit 
from increased spending on the space program are those currently engaged in 


producing: 


textiles. 


. military equipment. 


transportation services. 
food products. 


6. Which policy do you feel was most effective in combating crime? 


ae 
b. 
Ce 
xd. 


Federal aid to education. 
Increase in F.B.I1. appropriation. 
Lower income taxes. 

Spending to eliminate poverty. 
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7. The belief that poverty can be eliminated by direct subsidies to the 


poor is based upon the assumption that the most significant thing the poor 
lack is: 


a. normal family relations. 
b. education. 
*C. money. 

d. good mental health. 


8. If the federal government during a period of prosperity increases its 
spending without raising taxes, what is the most likely effect? 


xa. Inflation. 

b. Loss of government jobs. 
c. Depression. 

d. Recession. 


9. If the United States Sharply increased its stock of offensive weapons, 
what would be the most likely response of the Soviet Union? 


a. Devote its entire military budget to defense. 
b. Agree to everything the United States wanted. 
xc. Increase its offensive weapons. 

d. Disarm. 


10. Most environmentalists feel that the United States government is not 


spending nearly enough on pollution control. They argue that the problem 
is urgent because: 


a. we still have a great deal to learn about pollution. 

b. it provides an excellent way to lower the unemployment rate. 

c. it is a sound political issue for this election year. 

xd. we are rapidly approaching the critical stage, after which 
it will be hopeless. 


Ji. A major argument against prohibiting strikes is that to do so would: 


a. increase productivity. 

b. be inflationary. 
*C. Serious weaken organized labor. 

d. encourage labor-management teamwork. 


12. Which of the following arguments is not used by Americans opposed to 
economic foreign aid? 


a. Foreigners do not appreciate what we give them. 
* b. Most of the money is spent for goods manufactured in the U.S. 
c. We should deal with the needs of our own people before we 
Start giving overseas. 
d. Foreign aid money is usually wasted, stolen, or in some way not 
given to the people for whom it is intended. 
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Essay Questions 


1. Which of the policies had the greatest impact on GNP? Explain why. 


2. What is the most effective way to deal with the problem of poverty 
in the United States? 


3. You are a 21st century historian writing about the 1970's. Which of 
the policies seem most significant from your perspective. Why? 


13 





PROGRAM LISTING 


199 REM POLICY - NATIONAL POLICY FORMATION 4 
119 REM CHANGES 18 INDICATORS IN RESPONSE TO WHICH OF THE 

120 REM 14 PROPOSITIONS ARF. PASSEDe 

138 REM COPYRIGHT 1972s STATE UNIVERSITY OF NEW YORK 

149 REM SCX): VALUE OF INDICATOR X AT BEGINNING OF PERIOD 

1590 REM ECX): VALUE OF INDICATOR X AT END OF PERIOD 

169 REM W(X): NUMBER OF POINTS TO BE USED BY GROUP X 

174 REM YCX): NUMBER OF MINUS POINTS TO RE USED BY GROUP X 


189 REM Q(X): RETWEEN LINES 650 AND 1190 Q(X) IS THE NUMRER OF POINTS ¥ 
199 REM FOR PROPOSITION Xe AT OTHER TIMES Q(X) = v 
209 REM 1s IF PROPOSITION X PASSED 

219 REM @» IF PROPOSITION X DID NOT PASS a 


220 REM DEVELOPED BY De KLASSEN AND Je MCGRATH 

230 REM PROGRAMMED BY Se HOLLANDER AND Le OBERLANDER 
240 REM LATEST REVISION 8-27-72 

259 DIMEC18)sSC18)s0C14)sWC6)sYC6) 

260 FORZ=1T018 

270 READECZ) 

289 LETS(Z)=ECZ) 

299 NEXTZ 

369 PRINT 

318 DATA 976645391975 89s18 2233982 

315 DATA 54535914043 4e522536e2 

326 DATA 345116¢3s1425556832959 

334 PRINT'HOW MANY PERIODS": 

349 INPUTP1 

354% LETP2=9 | | | _ 
369 PRINT | 

379 PRINT 

389 IFP2>9THEN4I9 

399 PRINT“INITIAL AMOUNTS:" 

406 GOTO0429 

410 PRINT"“END OF PERIOD''sPa2 

420 PRINT 

439 PRINT 

449 PRINT" INDICATOR" >s "CURRENTLY''s"INCREASE"s"PCTe INCe™ 
450 FORZ=1T018 | 

460 LETDI=INTC19A*CECZ)-SCZ)))71A00 
47% IFSCZ)=OTHEN4SIO 

480 LETD2=1499*D1/S(Z) 

494 LETD2=INTC194%4*D2)/109 

509 PRINTZ+1900s INTCIAA*ECZ))/1093 
510 IFP2=ATHENS34 

524 PRINT” "'sD1i»D235 

5939 PRINT 

549 NEXTZ 

558 PRINT 

569 PRINT 

5709 LETP2=Pe+l 

580 FORZ=1T018 

598 LETS(Z)=EC(Z) 
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699 
614 
624 
639 
649 
654 
663 
676 
680 
699 
7AO 
719 
729 
739 
740 
750 
769 
776 
789 
790 
800 
814 
820 
839 
849 
859 
86G 
870A 
889 
89% 
999 
914 
929 
930 
94D 
956 
960 
979 
989 
999 
169G 
1819 
1929 
1939 
1440 
1656 
1969 
1076 


NEXTZ 

FORZ=1T06 
LETWCZ)=199 
LETY(Z)=59 
NEXTZ 
FORZ=1T014 
LETQ(Z)=9 

NEXTZ 
PRINT"TAPE?(1=YESsG=NO)"'3 
INPUTZ 
IFZ=1THEN1999 
IFP2>P 1 THEN29 49 
FORZ=1T06 

PRINT 
IFZ>1THEN77@ 


PRINT™BUSINESS' 


GOTO09G9 
IFZ>2THEN8GS 
PRINT"LABOR" 
GOTO90G 
IFZ>3THEN839 
PRINT"CIVIL RIGHTS" 
GOTO9GG 
IFZ>4THENS69 
PRINT'MILITARY" 
GOTO949G 
IFZ>STHEN89G 
PRINT'NATIONALISTS" 
GOTO098B 

PRINT" INTERNATIONALISTS"™ 
PRINT 


PRINT’TOTAL POINTS REMAINING 


IFY¢€Z)<=WCZ)THENI 4S 
LETY(Z)=WCZ) 
PRINT’MAXIMUM MINUS POINTS 


PRINT" INPUT POLICY NO-»sPOINTS" 


PRINT 

INPUTAsB 

LETA=INTCA) 

LETB=INTCB) 
IFA>14THENI19 
IFA=4THEN1159 
IFB=9 THENO19 
IFA>9THEN1 984 
PRINT'TAPE? C1=YESs9=NO)"'S 
INPUTG 
IFG=1THEN1999 
GOTO919 
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"sWCZ) 


"SYCZ) 


1989 
1999 
1199 
1110 
1129 
1139 
1149 
1159 
1160 
1170 
1186 
1190 
1289 
1219 
1229 
12390 
1246 
12590 
1269 
1273 
1289 
1299 
1399 
1310 
1320 
1330 
1349 
1354 
1366 
13790 
1389 
13940 
1460 
1416 
1429 
14390 
1449 
1459 
1469 


IFARBS(BI>WCZ)THENSD19 
IFB>=9THEN1 129 
IFARSCB)>YC(Z)THENI14 
LETY(Z)=YC(Z)+8 
LETQCA)=Q(A)4+8B 
LETWC(Z)=WC(Z)-ABSC(B) 
IFWCZ)>ATHENSOTGD 
NEXTZ 

PRINT 
PRINT"’PASSED ¢ "3 
LETZ2=9 

FORZ=1T014 
IFQ¢€Z)<101THEN1L2594 
PRINTZs 

LETZ2=1 

LETQ¢(Z)=1 

GOT01269 

LETQ¢(Z)=9 

NEXTZ 
IFZ2>8THEN1 399 
PRINT*NONE* 
GOTO01640 

PRINT 

PRINT 

FORZ=1TO14 
IFQ¢€Z)<>ATHEN1I 374 
READA>sB 
IFA<>ATHEN1 343 
GOTO1419 

READA>»sB 
IFA=ATHEN1 419 
LETECA)=ECA)+4+B 
GOTO01374 

NEXTZ 

RESTORE 

FORZ=1T0O9 

READA>sB 

NEXTZ 
DATA1s15423959 





1473 DATA1 s1958s299392e2559859G 

1489 DATA1s 1252559932625 5 125-1059135-553169-14A AD 

1499 DATA2»s 49 35151232513335955h 

159B DATA1s1252535691579191Ds-elslls—eA5s 129-15 139-359 169-599 AG 
1519 DATA1 »s 852525351563 05918s-01514935A4dD 

1529 DATA2s 15163-19495G5B 

1539 DATA1s24532511545 63565 35113-0859139~7015165—-59Ds 175-259 D 
1549 DATA1 2932585 459-15851514%9-2095591159-25 123 -159135—- 0455 169-3951 7 9-394 D 
1559 DATA1 s-83s25-1%s33-305551569-4As 7949189 025913915149 —-25AG 
15649 DATA1 92525 0553 69-25755589-15145 19159-15917 9-15989B 

1579 DATA1 » 49252535325 62 055915339559 

1589 DATA1s1%»s655597533142-49959 

1599 DATA1s35s25155591585G 
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v 
é 





16499 
1614 
1629 
1639 
1644 
1659 
1660 
1679 
1684 
1699 
1709 
1719 
1729 
1739 
1749 
1759 
1760 
1779 
1788 
1790 
1809 
1810 
1829 
1839 
1846 
1859 
1869 
1870 
1883 
18990 
1996 
1919 
1929 
1939 
1940 
1959 
1964 
1976 
1989 
1996 
2099 
2A45 
2910 
2915 
2620 
2025 
24030 
28035 
2949 


IFEC1)<>S¢1)THEN1620 
LETEC1)=1-G4*E(1) 
IFEC2)<>S(2)THEN1640 
LETE(2)=E(2)+1 
IFEC3)<>S(3) THEN1660 
LETE(3)=.99*E(3) 
IFEC4)<>S(4) THEN 1680 
LETEC4)=E(4)*.99 
IFEC5)<>S(5)THEN179@ 
LETE(5)=.9*E(5) 
IFE(8)<>S(8)THEN1720 
LETE(8)=1e01*E(8) 
IFS(1)=Q0THEN175@ 
IFCEC1)-SC€1))/SC€1)<eO4THENI 759 
LETEC19)=1e915*EC18) 
IFEC11)<>S¢11)THENI774 
LETE(11)=.99*EC11) 
IFEC12)<>S(12)THEN1819 
IFS(1)=0THEN1810 
IFCEC1)-SC€1))/SC1)<eGATHENIB1B 
LETE(12)=1e93*E(12) 
IFE(13)<>S(13)THEN1 834 
LETE(13)=.98*E(13) 
IFEC14)<>S¢€14) THENI859 
LETE(14)=1 eQ4*EC14) 
IFEC(15)<>S¢€15) THEN1870 
LETEC15)=161*E(15) 
IFE(16)<>S(16) THEN360 
LETE(16)=1218*E(16) 
GOT0369 

PRINT 

PRINT" " 
FORL=4T012STEP6 
IFL>OTHEN1960 
PRINT"319"3 

GOTO2000 

IFL>6THEN1990 
PRINT'315""3 

GOTO02999 

PRINT"320'"3 
PRINT"DATA"S 
FORZ=L+1TOL+5 
PRINTEC(Z)3 "5 "5 

NEXTZ 

PRINTEC(L+6) 

NEXTL 

PRINT 

PRINT 

END 
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